/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / psgml / psgml-fs.elc.z / psgml-fs.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 34 3a 31 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:18 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 73 67 6d |s-20.3/l|isp/psgm|
|000000a0| 6c 2f 70 73 67 6d 6c 2d | 66 73 2e 65 6c 0a 3b 3b |l/psgml-|fs.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 70 73 67 6d 6c |  (error| "`psgml|
|000001f0| 2d 66 73 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |-fs.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c2 c3 | 21 ac 82 c4 13 c3 0d 42 | "..!...|!......B|
|00000270| 15 c0 87 22 20 5b 72 65 | 71 75 69 72 65 20 70 73 |..." [re|quire ps|
|00000280| 67 6d 6c 2d 61 70 69 20 | 62 6f 75 6e 64 70 20 66 |gml-api |boundp f|
|00000290| 73 2d 63 68 61 72 20 28 | 28 6c 65 66 74 20 2e 20 |s-char (|(left . |
|000002a0| 30 29 20 28 66 69 72 73 | 74 29 20 28 64 65 66 61 |0) (firs|t) (defa|
|000002b0| 75 6c 74 2d 74 6f 70 20 | 2e 20 30 29 20 28 64 65 |ult-top |. 0) (de|
|000002c0| 66 61 75 6c 74 2d 62 6f | 74 74 6f 6d 20 2e 20 30 |fault-bo|ttom . 0|
|000002d0| 29 20 28 69 67 6e 6f 72 | 65 2d 65 6d 70 74 79 2d |) (ignor|e-empty-|
|000002e0| 70 61 72 61 29 20 28 6c | 69 74 65 72 61 6c 29 29 |para) (l|iteral))|
|000002f0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000300| 73 74 5d 20 32 29 0a 23 | 40 37 34 20 53 74 79 6c |st] 2).#|@74 Styl|
|00000310| 65 20 61 74 74 72 69 62 | 75 65 73 20 74 68 61 74 |e attrib|ues that|
|00000320| 20 73 68 6f 75 6c 64 20 | 6e 6f 74 20 62 65 20 65 | should |not be e|
|00000330| 6e 74 65 72 65 64 20 69 | 6e 20 74 68 65 20 63 68 |ntered i|n the ch|
|00000340| 61 72 61 63 74 65 72 69 | 73 74 69 63 73 20 74 61 |aracteri|stics ta|
|00000350| 62 6c 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 66 73 |ble...(d|efvar fs|
|00000360| 2d 73 70 65 63 69 61 6c | 2d 73 74 79 6c 65 73 20 |-special|-styles |
|00000370| 27 28 74 6f 70 20 62 6f | 74 74 6f 6d 20 62 65 66 |'(top bo|ttom bef|
|00000380| 6f 72 65 20 61 66 74 65 | 72 20 68 61 6e 67 2d 66 |ore afte|r hang-f|
|00000390| 72 6f 6d 20 74 65 78 74 | 29 20 28 23 24 20 2e 20 |rom text|) (#$ . |
|000003a0| 37 38 30 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |780)).(d|efalias |
|000003b0| 27 66 73 2d 63 68 61 72 | 20 23 5b 28 70 29 20 22 |'fs-char| #[(p) "|
|000003c0| 08 09 b7 41 87 22 20 5b | 70 20 66 73 2d 63 68 61 |...A." [|p fs-cha|
|000003d0| 72 5d 20 32 5d 29 0a 23 | 40 33 30 20 41 63 63 75 |r] 2]).#|@30 Accu|
|000003e0| 6d 75 6c 61 74 65 20 74 | 65 78 74 20 6f 66 20 70 |mulate t|ext of p|
|000003f0| 61 72 61 67 72 61 70 68 | 1f 0a 28 64 65 66 76 61 |aragraph|..(defva|
|00000400| 72 20 66 73 2d 70 61 72 | 61 2d 61 63 63 20 22 22 |r fs-par|a-acc ""|
|00000410| 20 28 23 24 20 2e 20 39 | 38 38 29 29 0a 23 40 33 | (#$ . 9|88)).#@3|
|00000420| 36 20 48 61 6e 67 69 6e | 67 20 69 6e 64 65 6e 74 |6 Hangin|g indent|
|00000430| 20 6f 66 20 63 75 72 72 | 65 6e 74 20 70 61 72 67 | of curr|ent parg|
|00000440| 72 61 70 68 1f 0a 28 64 | 65 66 76 61 72 20 66 73 |raph..(d|efvar fs|
|00000450| 2d 68 61 6e 67 2d 66 72 | 6f 6d 20 6e 69 6c 20 28 |-hang-fr|om nil (|
|00000460| 23 24 20 2e 20 31 30 35 | 38 29 29 0a 28 62 79 74 |#$ . 105|8)).(byt|
|00000470| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ac 82 c2 11 c1 |e-code "|..!.....|
|00000480| 0b 42 13 c0 c4 21 ac 82 | c2 14 c4 0b 42 13 c2 87 |.B...!..|....B...|
|00000490| 22 20 5b 62 6f 75 6e 64 | 70 20 66 73 2d 66 69 72 |" [bound|p fs-fir|
|000004a0| 73 74 2d 69 6e 64 65 6e | 74 20 6e 69 6c 20 63 75 |st-inden|t nil cu|
|000004b0| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|000004c0| 66 73 2d 6c 65 66 74 2d | 69 6e 64 65 6e 74 5d 20 |fs-left-|indent] |
|000004d0| 32 29 0a 23 40 33 37 20 | 56 65 72 74 69 63 61 6c |2).#@37 |Vertical|
|000004e0| 20 73 70 61 63 65 20 61 | 66 74 65 72 20 6c 61 73 | space a|fter las|
|000004f0| 74 20 70 61 72 61 67 72 | 61 70 68 1f 0a 28 64 65 |t paragr|aph..(de|
|00000500| 66 76 61 72 20 66 73 2d | 76 73 70 61 63 65 20 30 |fvar fs-|vspace 0|
|00000510| 20 28 23 24 20 2e 20 31 | 32 34 30 29 29 0a 28 64 | (#$ . 1|240)).(d|
|00000520| 65 66 61 6c 69 61 73 20 | 27 66 73 2d 61 64 64 76 |efalias |'fs-addv|
|00000530| 73 70 61 63 65 20 23 5b | 28 6e 29 20 22 08 09 56 |space #[|(n) "..V|
|00000540| ad 8c c2 c3 08 09 5a c4 | 5c 22 21 88 08 89 11 87 |......Z.|\"!.....|
|00000550| 22 20 5b 6e 20 66 73 2d | 76 73 70 61 63 65 20 70 |" [n fs-|vspace p|
|00000560| 72 69 6e 63 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |rinc mak|e-string|
|00000570| 20 3f 5c 6e 5d 20 34 5d | 29 0a 28 64 65 66 61 6c | ?\n] 4]|).(defal|
|00000580| 69 61 73 20 27 66 73 2d | 70 61 72 61 20 23 5b 6e |ias 'fs-|para #[n|
|00000590| 69 6c 20 22 c0 c1 21 ab | 86 c2 c3 0c 5c 22 aa 81 |il "..!.|....\"..|
|000005a0| 0d ab 9b 0d ac 86 c6 c7 | c5 43 5c 22 88 c8 0c 0e |........|.C\"....|
|000005b0| 09 0d 0e 5c 6e c0 cb 21 | 25 88 cc 16 0d ce 16 5c |...\n..!|%......\|
|000005c0| 6e cf 14 ce 16 09 ce 89 | 15 87 22 20 5b 66 73 2d |n.......|.." [fs-|
|000005d0| 63 68 61 72 20 69 67 6e | 6f 72 65 2d 65 70 6d 74 |char ign|ore-epmt|
|000005e0| 79 2d 70 61 72 61 20 73 | 74 72 69 6e 67 2d 6d 61 |y-para s|tring-ma|
|000005f0| 74 63 68 20 22 5b 5e 09 | 5c 6e 20 5d 22 20 66 73 |tch "[^.|\n ]" fs|
|00000600| 2d 70 61 72 61 2d 61 63 | 63 20 66 73 2d 6c 65 66 |-para-ac|c fs-lef|
|00000610| 74 2d 69 6e 64 65 6e 74 | 20 73 69 67 6e 61 6c 20 |t-indent| signal |
|00000620| 63 6c 2d 61 73 73 65 72 | 74 69 6f 6e 2d 66 61 69 |cl-asser|tion-fai|
|00000630| 6c 65 64 20 66 73 2d 6f | 75 74 70 75 74 2d 70 61 |led fs-o|utput-pa|
|00000640| 72 61 20 66 73 2d 66 69 | 72 73 74 2d 69 6e 64 65 |ra fs-fi|rst-inde|
|00000650| 6e 74 20 66 73 2d 68 61 | 6e 67 2d 66 72 6f 6d 20 |nt fs-ha|ng-from |
|00000660| 6c 69 74 65 72 61 6c 20 | 30 20 66 73 2d 76 73 70 |literal |0 fs-vsp|
|00000670| 61 63 65 20 6e 69 6c 20 | 22 22 5d 20 37 5d 29 0a |ace nil |""] 7]).|
|00000680| 28 64 65 66 61 6c 69 61 | 73 20 27 66 73 2d 70 61 |(defalia|s 'fs-pa|
|00000690| 72 61 66 6f 72 6d 2d 64 | 61 74 61 20 23 5b 28 64 |raform-d|ata #[(d|
|000006a0| 61 74 61 29 20 22 08 ac | 88 c1 c2 21 10 c1 c3 21 |ata) "..|...!...!|
|000006b0| 14 0d 0e 06 50 89 15 87 | 22 20 5b 66 73 2d 6c 65 |....P...|" [fs-le|
|000006c0| 66 74 2d 69 6e 64 65 6e | 74 20 66 73 2d 63 68 61 |ft-inden|t fs-cha|
|000006d0| 72 20 6c 65 66 74 20 66 | 69 72 73 74 20 66 73 2d |r left f|irst fs-|
|000006e0| 66 69 72 73 74 2d 69 6e | 64 65 6e 74 20 66 73 2d |first-in|dent fs-|
|000006f0| 70 61 72 61 2d 61 63 63 | 20 64 61 74 61 5d 20 32 |para-acc| data] 2|
|00000700| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 73 |]).(defa|lias 'fs|
|00000710| 2d 6f 75 74 70 75 74 2d | 70 61 72 61 20 23 5b 28 |-output-|para #[(|
|00000720| 74 65 78 74 20 66 69 72 | 73 74 2d 69 6e 64 65 6e |text fir|st-inden|
|00000730| 74 20 69 6e 64 65 6e 74 | 20 68 61 6e 67 2d 66 72 |t indent| hang-fr|
|00000740| 6f 6d 20 6c 69 74 65 72 | 61 6c 29 20 22 c0 09 21 |om liter|al) "..!|
|00000750| 88 c2 c3 0c c5 5c 22 1e | 06 1e 07 0e 08 ab 98 64 |.....\".|.......d|
|00000760| 62 88 6e ac 83 c9 63 88 | 65 62 88 6d ac b3 0e 06 |b.n...c.|eb.m....|
|00000770| 63 88 ca 79 88 aa 74 cb | cc c2 cd 23 ab 86 ce cf |c..y..t.|...#....|
|00000780| 21 88 aa 73 65 62 88 d0 | 20 88 0e 11 ab 84 0e 11 |!..seb..| .......|
|00000790| aa 88 c3 0e 12 ae 81 0c | c5 5c 22 63 88 d3 65 64 |........|.\"c..ed|
|000007a0| 5c 22 88 d4 d5 20 21 88 | 2a d6 20 87 22 20 5b 73 |\"... !.|*. ." [s|
|000007b0| 67 6d 6c 2d 70 75 73 68 | 2d 74 6f 2d 73 74 72 69 |gml-push|-to-stri|
|000007c0| 6e 67 20 74 65 78 74 20 | 6e 69 6c 20 6d 61 6b 65 |ng text |nil make|
|000007d0| 2d 73 74 72 69 6e 67 20 | 69 6e 64 65 6e 74 20 3f |-string |indent ?|
|000007e0| 5c 20 20 66 69 6c 6c 2d | 70 72 65 66 69 78 20 69 |\  fill-|prefix i|
|000007f0| 6e 64 65 6e 74 2d 74 61 | 62 73 2d 6d 6f 64 65 20 |ndent-ta|bs-mode |
|00000800| 6c 69 74 65 72 61 6c 20 | 3f 5c 6e 20 31 20 72 65 |literal |?\n 1 re|
|00000810| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000820| 22 5b 20 09 5c 6e 0d 5d | 2b 22 20 74 20 72 65 70 |"[ .\n.]|+" t rep|
|00000830| 6c 61 63 65 2d 6d 61 74 | 63 68 20 22 20 22 20 64 |lace-mat|ch " " d|
|00000840| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|00000850| 2d 73 70 61 63 65 20 68 | 61 6e 67 2d 66 72 6f 6d |-space h|ang-from|
|00000860| 20 66 69 72 73 74 2d 69 | 6e 64 65 6e 74 20 66 69 | first-i|ndent fi|
|00000870| 6c 6c 2d 72 65 67 69 6f | 6e 2d 61 73 2d 70 61 72 |ll-regio|n-as-par|
|00000880| 61 67 72 61 70 68 20 70 | 72 69 6e 63 20 62 75 66 |agraph p|rinc buf|
|00000890| 66 65 72 2d 73 74 72 69 | 6e 67 20 73 67 6d 6c 2d |fer-stri|ng sgml-|
|000008a0| 70 6f 70 2d 65 6e 74 69 | 74 79 5d 20 34 5d 29 0a |pop-enti|ty] 4]).|
|000008b0| 28 64 65 66 61 6c 69 61 | 73 20 27 66 73 2d 65 6c |(defalia|s 'fs-el|
|000008c0| 65 6d 65 6e 74 2d 63 6f | 6e 74 65 6e 74 20 23 5b |ement-co|ntent #[|
|000008d0| 28 65 29 20 22 c0 19 c2 | 0b c4 c5 c6 c7 25 88 09 |(e) "...|.....%..|
|000008e0| 29 87 22 20 5b 22 22 20 | 66 73 2d 70 61 72 61 2d |)." ["" |fs-para-|
|000008f0| 61 63 63 20 73 67 6d 6c | 2d 6d 61 70 2d 63 6f 6e |acc sgml|-map-con|
|00000900| 74 65 6e 74 20 65 20 66 | 73 2d 70 61 72 61 66 6f |tent e f|s-parafo|
|00000910| 72 6d 2d 70 68 72 61 73 | 65 20 66 73 2d 70 61 72 |rm-phras|e fs-par|
|00000920| 61 66 6f 72 6d 2d 64 61 | 74 61 20 6e 69 6c 20 66 |aform-da|ta nil f|
|00000930| 73 2d 70 61 72 61 66 6f | 72 6d 2d 65 6e 74 69 74 |s-parafo|rm-entit|
|00000940| 79 5d 20 36 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |y] 6]).(|defalias|
|00000950| 20 27 66 73 2d 70 61 72 | 61 66 6f 72 6d 2d 70 68 | 'fs-par|aform-ph|
|00000960| 72 61 73 65 20 23 5b 28 | 65 29 20 22 c0 09 c2 c3 |rase #[(|e) "....|
|00000970| c4 c5 25 87 22 20 5b 73 | 67 6d 6c 2d 6d 61 70 2d |..%." [s|gml-map-|
|00000980| 63 6f 6e 74 65 6e 74 20 | 65 20 66 73 2d 70 61 72 |content |e fs-par|
|00000990| 61 66 6f 72 6d 2d 70 68 | 72 61 73 65 20 66 73 2d |aform-ph|rase fs-|
|000009a0| 70 61 72 61 66 6f 72 6d | 2d 64 61 74 61 20 6e 69 |paraform|-data ni|
|000009b0| 6c 20 66 73 2d 70 61 72 | 61 66 6f 72 6d 2d 65 6e |l fs-par|aform-en|
|000009c0| 74 69 74 79 5d 20 36 5d | 29 0a 28 64 65 66 61 6c |tity] 6]|).(defal|
|000009d0| 69 61 73 20 27 66 73 2d | 70 61 72 61 66 6f 72 6d |ias 'fs-|paraform|
|000009e0| 2d 65 6e 74 69 74 79 20 | 23 5b 28 65 6e 74 69 74 |-entity |#[(entit|
|000009f0| 79 29 20 22 c0 c1 21 c2 | 1b 89 19 ab c0 09 1c c2 |y) "..!.|........|
|00000a00| 1d c2 1e 06 c2 1e 07 c8 | 1e 09 c2 1e 5c 6e 0c 3a |........|....\n.:|
|00000a10| ab a7 0c 89 15 89 41 15 | 40 16 06 0d 40 16 07 0e |......A.|@...@...|
|00000a20| 06 0e 0b 40 6b ad 82 0e | 07 89 16 5c 6e 3f 89 16 |...@k...|...\n?..|
|00000a30| 09 ab 87 0c 41 41 89 14 | aa 56 0e 5c 6e 2e 06 13 |....AA..|.V.\n...|
|00000a40| 0b ac 85 cc 0e 0b 38 13 | cd 0b 21 2a 87 22 20 5b |......8.|..!*." [|
|00000a50| 66 73 2d 63 68 61 72 20 | 65 6e 74 69 74 79 2d 6d |fs-char |entity-m|
|00000a60| 61 70 20 6e 69 6c 20 74 | 65 78 74 20 47 38 38 30 |ap nil t|ext G880|
|00000a70| 32 32 20 47 38 38 30 32 | 33 20 6e 61 6d 65 20 76 |22 G8802|3 name v|
|00000a80| 61 6c 20 74 20 47 38 38 | 30 32 34 20 47 38 38 30 |al t G88|024 G880|
|00000a90| 32 35 20 65 6e 74 69 74 | 79 20 32 20 66 73 2d 70 |25 entit|y 2 fs-p|
|00000aa0| 61 72 61 66 6f 72 6d 2d | 64 61 74 61 5d 20 34 5d |araform-|data] 4]|
|00000ab0| 29 0a 23 40 32 32 34 20 | 2a 53 74 79 6c 65 20 73 |).#@224 |*Style s|
|00000ac0| 68 65 65 74 20 74 6f 20 | 75 73 65 20 66 6f 72 20 |heet to |use for |
|00000ad0| 60 73 74 79 6c 65 2d 66 | 6f 72 6d 61 74 27 2e 0a |`style-f|ormat'..|
|00000ae0| 54 68 65 20 76 61 6c 75 | 65 20 63 61 6e 20 62 65 |The valu|e can be|
|00000af0| 20 74 68 65 20 73 74 79 | 6c 65 2d 73 68 65 65 74 | the sty|le-sheet|
|00000b00| 20 6c 69 73 74 2c 20 6f | 72 20 69 74 20 63 61 6e | list, o|r it can|
|00000b10| 20 62 65 20 61 20 66 69 | 6c 65 20 6e 61 6d 65 0a | be a fi|le name.|
|00000b20| 28 73 74 72 69 6e 67 29 | 20 6f 66 20 61 20 66 69 |(string)| of a fi|
|00000b30| 6c 65 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 74 68 |le conta|ining th|
|00000b40| 65 20 73 74 79 6c 65 20 | 73 68 65 65 74 20 6f 72 |e style |sheet or|
|00000b50| 20 69 74 20 63 61 6e 20 | 62 65 20 74 68 65 20 6e | it can |be the n|
|00000b60| 61 6d 65 0a 28 73 79 6d | 62 6f 6c 29 20 6f 66 20 |ame.(sym|bol) of |
|00000b70| 61 20 76 61 72 69 61 62 | 6c 65 20 63 6f 6e 74 61 |a variab|le conta|
|00000b80| 69 6e 69 6e 67 20 74 68 | 65 20 73 74 79 6c 65 20 |ining th|e style |
|00000b90| 73 68 65 65 74 2e 1f 0a | 28 64 65 66 76 61 72 20 |sheet...|(defvar |
|00000ba0| 66 73 2d 73 74 79 6c 65 | 20 22 70 73 67 6d 6c 2d |fs-style| "psgml-|
|00000bb0| 73 74 79 6c 65 2e 66 73 | 22 20 28 23 24 20 2e 20 |style.fs|" (#$ . |
|00000bc0| 2d 32 37 34 34 29 29 0a | 28 62 79 74 65 2d 63 6f |-2744)).|(byte-co|
|00000bd0| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c1 0b 42 13 c2 |de "..!.|.....B..|
|00000be0| 87 22 20 5b 62 6f 75 6e | 64 70 20 66 73 2d 63 61 |." [boun|dp fs-ca|
|00000bf0| 63 68 65 64 2d 73 74 79 | 6c 65 73 20 6e 69 6c 20 |ched-sty|les nil |
|00000c00| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000c10| 74 5d 20 32 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |t] 2).(d|efalias |
|00000c20| 27 66 73 2d 67 65 74 2d | 73 74 79 6c 65 20 23 5b |'fs-get-|style #[|
|00000c30| 28 73 74 79 6c 65 29 20 | 22 08 3b ab 86 c1 08 c2 |(style) |".;.....|
|00000c40| c3 23 87 08 39 ab 85 c4 | 08 4a 21 87 08 3c ab 82 |.#..9...|.J!..<..|
|00000c50| 08 87 c5 c6 08 5c 22 87 | 22 20 5b 73 74 79 6c 65 |.....\".|" [style|
|00000c60| 20 73 67 6d 6c 2d 63 61 | 63 68 65 2d 63 61 74 61 | sgml-ca|che-cata|
|00000c70| 6c 6f 67 20 66 73 2d 63 | 61 63 68 65 64 2d 73 74 |log fs-c|ached-st|
|00000c80| 79 6c 65 73 20 23 5b 6e | 69 6c 20 22 c0 70 21 87 |yles #[n|il ".p!.|
|00000c90| 22 20 5b 72 65 61 64 5d | 20 32 5d 20 66 73 2d 67 |" [read]| 2] fs-g|
|00000ca0| 65 74 2d 73 74 79 6c 65 | 20 65 72 72 6f 72 20 22 |et-style| error "|
|00000cb0| 49 6c 6c 65 67 61 6c 20 | 73 74 79 6c 65 20 76 61 |Illegal |style va|
|00000cc0| 6c 75 65 3a 20 25 73 22 | 5d 20 34 5d 29 0a 28 64 |lue: %s"|] 4]).(d|
|00000cd0| 65 66 61 6c 69 61 73 20 | 27 66 73 2d 65 6e 67 69 |efalias |'fs-engi|
|00000ce0| 6e 65 20 23 5b 28 65 29 | 20 22 c0 09 c2 c3 09 21 |ne #[(e)| ".....!|
|00000cf0| 0c 5c 22 ae 83 c5 0c b7 | 41 5c 22 87 22 20 5b 66 |.\".....|A\"." [f|
|00000d00| 73 2d 64 6f 2d 73 74 79 | 6c 65 20 65 20 61 73 73 |s-do-sty|le e ass|
|00000d10| 6f 63 20 73 67 6d 6c 2d | 65 6c 65 6d 65 6e 74 2d |oc sgml-|element-|
|00000d20| 67 69 20 66 73 2d 73 74 | 79 6c 65 20 74 5d 20 35 |gi fs-st|yle t] 5|
|00000d30| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 73 |]).(defa|lias 'fs|
|00000d40| 2d 64 6f 2d 73 74 79 6c | 65 20 23 5b 28 65 20 73 |-do-styl|e #[(e s|
|00000d50| 74 79 6c 65 29 20 22 c0 | 09 c2 5c 22 89 1a ab 8e |tyle) ".|..\"....|
|00000d60| c3 c4 c5 c6 c7 21 c8 5c | 22 c9 5c 6e 21 23 16 5c |.....!.\|".\n!#.\|
|00000d70| 6e 29 09 1e 0b cc 1e 0d | 0e 0b 3a ab a0 0e 0b 40 |n)......|..:....@|
|00000d80| 0e 0e 73 ac 8f 0e 0b 40 | c9 0e 0b 41 40 21 42 0e |..s....@|...A@!B.|
|00000d90| 0d 42 16 0d 0e 0b 41 41 | 89 16 0b aa 5d 0e 0d 9f |.B....AA|....]...|
|00000da0| 2a 0e 06 a4 1e 06 c0 09 | cf 5c 22 ab 8f d0 20 88 |*.......|.\"... .|
|00000db0| d1 c0 09 d2 5c 22 ae 83 | c6 d3 21 21 88 c0 09 d4 |....\"..|..!!....|
|00000dc0| 5c 22 89 1e 14 ab 87 d5 | 0e 16 0e 14 5c 22 88 29 |\"......|....\".)|
|00000dd0| c0 09 d7 5c 22 ab 8b d8 | c9 c0 09 d7 5c 22 21 21 |...\"...|....\"!!|
|00000de0| 88 aa 89 d9 0e 16 da d8 | cc db 25 88 c0 09 dc 5c |........|..%....\|
|00000df0| 22 89 1e 1c ab 87 d5 0e | 16 0e 1c 5c 22 88 29 c0 |".......|...\".).|
|00000e00| 09 cf 5c 22 ad 8e d0 20 | 88 d1 c0 09 dd 5c 22 ae |..\"... |.....\".|
|00000e10| 83 c6 de 21 21 29 87 22 | 20 5b 67 65 74 66 20 73 |...!!)."| [getf s|
|00000e20| 74 79 6c 65 20 68 61 6e | 67 2d 66 72 6f 6d 20 66 |tyle han|g-from f|
|00000e30| 6f 72 6d 61 74 20 22 25 | 73 25 73 20 22 20 6d 61 |ormat "%|s%s " ma|
|00000e40| 6b 65 2d 73 74 72 69 6e | 67 20 66 73 2d 63 68 61 |ke-strin|g fs-cha|
|00000e50| 72 20 6c 65 66 74 20 3f | 5c 20 20 65 76 61 6c 20 |r left ?|\  eval |
|00000e60| 66 73 2d 68 61 6e 67 2d | 66 72 6f 6d 20 73 74 20 |fs-hang-|from st |
|00000e70| 6e 69 6c 20 47 38 38 30 | 32 36 20 66 73 2d 73 70 |nil G880|26 fs-sp|
|00000e80| 65 63 69 61 6c 2d 73 74 | 79 6c 65 73 20 62 6c 6f |ecial-st|yles blo|
|00000e90| 63 6b 20 66 73 2d 70 61 | 72 61 20 66 73 2d 61 64 |ck fs-pa|ra fs-ad|
|00000ea0| 64 76 73 70 61 63 65 20 | 74 6f 70 20 64 65 66 61 |dvspace |top defa|
|00000eb0| 75 6c 74 2d 74 6f 70 20 | 62 65 66 6f 72 65 20 66 |ult-top |before f|
|00000ec0| 73 2d 64 6f 2d 73 74 79 | 6c 65 20 65 20 74 65 78 |s-do-sty|le e tex|
|00000ed0| 74 20 66 73 2d 70 61 72 | 61 66 6f 72 6d 2d 64 61 |t fs-par|aform-da|
|00000ee0| 74 61 20 73 67 6d 6c 2d | 6d 61 70 2d 63 6f 6e 74 |ta sgml-|map-cont|
|00000ef0| 65 6e 74 20 66 73 2d 65 | 6e 67 69 6e 65 20 66 73 |ent fs-e|ngine fs|
|00000f00| 2d 70 61 72 61 66 6f 72 | 6d 2d 65 6e 74 69 74 79 |-parafor|m-entity|
|00000f10| 20 61 66 74 65 72 20 62 | 6f 74 74 6f 6d 20 64 65 | after b|ottom de|
|00000f20| 66 61 75 6c 74 2d 62 6f | 74 74 6f 6d 5d 20 37 5d |fault-bo|ttom] 7]|
|00000f30| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 74 79 |).(defal|ias 'sty|
|00000f40| 6c 65 2d 66 6f 72 6d 61 | 74 20 23 5b 6e 69 6c 20 |le-forma|t #[nil |
|00000f50| 22 c0 11 c2 0b 21 1b c4 | 90 c5 c6 20 21 88 c7 20 |"....!..|... !.. |
|00000f60| 91 29 87 22 20 5b 22 22 | 20 66 73 2d 70 61 72 61 |.)." [""| fs-para|
|00000f70| 2d 61 63 63 20 66 73 2d | 67 65 74 2d 73 74 79 6c |-acc fs-|get-styl|
|00000f80| 65 20 66 73 2d 73 74 79 | 6c 65 20 22 2a 46 6f 72 |e fs-sty|le "*For|
|00000f90| 6d 61 74 74 65 64 2a 22 | 20 66 73 2d 65 6e 67 69 |matted*"| fs-engi|
|00000fa0| 6e 65 20 73 67 6d 6c 2d | 74 6f 70 2d 65 6c 65 6d |ne sgml-|top-elem|
|00000fb0| 65 6e 74 20 66 73 2d 70 | 61 72 61 5d 20 33 20 6e |ent fs-p|ara] 3 n|
|00000fc0| 69 6c 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |il nil])|.(defali|
|00000fd0| 61 73 20 27 66 73 2d 61 | 74 74 76 61 6c 20 23 5b |as 'fs-a|ttval #[|
|00000fe0| 28 6e 61 6d 65 29 20 22 | c0 09 5c 6e 5c 22 87 22 |(name) "|..\n\"."|
|00000ff0| 20 5b 73 67 6d 6c 2d 65 | 6c 65 6d 65 6e 74 2d 61 | [sgml-e|lement-a|
|00001000| 74 74 76 61 6c 20 65 20 | 6e 61 6d 65 5d 20 33 5d |ttval e |name] 3]|
|00001010| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+